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| ee PRODUCT CODE: MAINDEC-11-D2M98-8-D 
és 
e: PRODUCT NAME: BOOTSTRAP/TERMINATOR (M9301, MS4OO) 
ES PROGRAM DATE: DECEMBER 1976 
éé 
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35 COPYRIGHT (C) 1976 BY DIGITAL EQUIPMENT CORPORATION 





“— 


wy 
~ 


8.0 Vat ten bh GE Eh oto DOU ete 


MAIN. 
OZMSAB. 


MACY11 27( 1006) fe “ite 14:46 PAGE 2 


Pll ere aif: 76 1 


FOL 





SEROSRIRENRRIRERRRSRENDRDRNRADNNARAEE 
; SUMMARY OF OPERATING INSTRUCTIONS : 


uaane RSRRAFRE quanvencnobenconnesonsee 


THE FOLLOWING PROCEDURE C 
+t A DEVICE VERIFICATION MODE. 


AN BE USED TO oe THIS DIAGNOSTIC 


IF THE PROGRAM DOES NOT 
RUN SUCCESSFULLY CONSULT THE FOLLOWING DOCUMENT FOR ASSISTANCE. 
OPERATING PROCEDURE: 


1. 
é. 
3. 


LOAD THE PROGRAM USING NORMAL PROCEDURES. 

LOAD ADCRESS 200 

a oe a gp TO SELECT THE PROPER 
VERSION OF T nay Teo 

(SEE Ins RUT TONS IF & SOFTWARE SWITCH REGISTER 


PRESS START 


THE PROGRAM SHOULD TAKE ABOUT 1 SEC TO 
COMPLETE THE TEST AND PRINT: “ENO OF TEST™ 


HE PS EA SRG AEB 


We 


oe 
z 


LOSS IRRP BE! B: 


ee ed ee ed ed ed ed ed ed nd ed ed ed Oy ed ed ed ed ed ed ed ed ee ed ed ee ed ed ee ee 


wo 
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Oe RR OES oto SeUr's tone 6. SOE Color ee eet 
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1.0 GENERAL PROGRAM INFORMATION 


1.1 PROGRAM PURPOSE 


a AE THEATRE I ce 


SO EaNGT TUSTNAL PA ire Maectee He Conte NT 
SP RS TRIMS RIGO ais, We EE Toe 


Tod, CONTENTS, OF THE FOR STORAGE ON The TELETYPE a 


1.2 SYSTEM REQUIREMENTS 


1.2.1 HAROWARE 


PDP/11 PROCESSOR 
TELETYPE OR EQUIVALENT 


4K Y 
M9301 M9400 MODULE 
1.2.2 SOFTWARE 


PROGRAM we ST Mf. 
EVER, Toe PrOurat Yo CESTONED To BUN ne 
PRODUCT TEST SYSTEM (APT) IN ALL THREE 
THE PROGRAM CAN ALSO BE RUN UNDER THE ACT 11 MONITOR. 
1.3 RELATED DOCUMENTS AND STANDARDS 


DIAGNOSTIC ENGINEERING STANDARDS SND CONVENTIONS PROGRAMMING PRACTICES 
DOCUMENT NO. 175-003-009- 90 


APT INTERFACE SPECIFICATION, REV. i3 
1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 


NONE, HOWEVER THE CPU IS ASSUMED TO BE FUNCTIONING 
1.5 FAILURE ASSUMPTIONS 


THE PROCESSOR IS ASSUMED TO BE FUNCTIONING PROPERLY. 


Fa 


a hs a ans en ene 
1rd bbb Gen E Cofor- toute er Ute Lotus 
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2.0 OPERATING INSTRUCTIONS 


2.1 LOADING AND STARTING PROCEDURES 


2.1.1  LORDING 


USE NORMAL PROCEDURES FOR LOADING DIAGNOSTIC PROGRAMS. 
2.1.2 . NORMAL START 


1. LOAD SOFTWARE SWITCH REGISTER (IF USED) TO SELECT THE 
ROM VERSION UNDER TEST. (SEE 2.3) 


LOAD ADDRES 200 


SET HARDWARE SWITCH REGISTER (IF OAD ARES: TO SELECT THE 
ROM VERSION UNDER TEST (SEE 2.3). 


4. START 
2.1.3 OPTIONAL START 


THE OPTIONAL STARTING ADORESS IS USED TO TYPE OUT THE CONTENTS 
Fe ROM FOR USE IN VISUAL VERIFICATION OR AS A DEBUGGING 


~ 


USE THE SAME PROCEDURE AS A NORMAL START EXCEPT USE 
ADDRESS 210 IN STEP 2. 


é.2 SPECTAL ENVIRONMENTS 


THIS PROGRAM IS WRITTEN TO COMPLY WITH ALL * REQUIREMENTS 
4 M3 APT INTERFACE SPECIFICATION. ahs Ty A Ros RTL OER APT 
N EITHER QUICK VERIFY, OR R 


THIS PROGRAM 1S WRITTEN TO COMPLY WITH THE ACTLI“XXDP | 
N RUNNING IN ACTI1 QUICK VERIFY OR XP CHAIN NODE 


esta test, RCL tea etter 


INTERVENTION OR os CH REGISTER SELECTION. THE 
COMPUTED RC Is ¢ eet a al THE CRC A 


KNOWN 
VERSIONS OF THE ROM BOOTSTRAP. WHEN A MA n fe FouNG THE 
VERSION OF THE MOOULE IS TYPED FOR VISUAL "VER ICATION. 
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2.3 PROGRAM OPTIONS 


My: PROGRAM Y CHECKS FOR THE PRESENCE OF 
Sree eerie oh at URES TSTER. i NO RESP 1 bie . ee WHEN 


SPORES abe runke cuk citer Is guBeritureD; 
BPE ADL Sea ae ee 


"2.3.1 SWITCH SELECTION 
{ THE 3 MA vo ae et ae SOFTWARE) IS USED TO SELECT 


x neapegeh us ee Pay! A Tee TO BE TESTED 


MODULE VERSION 


M9301-YA 
9301-YB 


1 

e 

3 M9301-YC 

4 MS4O0-YA (OR YC) 
5 M9301-YF 

I 

N 


F THE CRC AND : af 08 NEW VERSIONS ARE KNO 
OT IN THE ABO SET THe SWITCH RES tER TO ZERO 
AND ANSWER THE SELETYBE B 


TO DETERMINE THE CRC AND LPC FOR A NEW VERSION. START 
THE DIAGNOSTIC AT eee SWR=0. ANSWER 0 TO THE 
REQUESTS FOR THE LPC CRC. THE RESULTING MESSAGES 
WILL INDICATE THE CORRECT FUTURE RESPONSES FOR CRC AND 
KNOWN-GOOD MODULE. 


2.3.2 TELETYPE DIALOG 


SEVERAL QUESTIONS ARE ASKED OF THE pil IN ORDER 

ier OBTAIN SUFFICIENT Ree to FOR Re Me cee 

IS TINTTIAT IE-THE PROGRAM 1 Is ee FARteS ubta ne SWR = OQ. 
L_ RESPONSES N OCTAL AND TERNINATED BY A 

CARRIAGE RETURN 


RESPONSES ARE CHECKED ¢- VALID OCTAL NUMBERS. 
at en CHARACTER a Ma it ane PROGRAM WILL TYPE 


a 
sir nee 


IF A MISTAKE 1S NOTICED BEFORE THE CARRIAGE RETURN IS USED 
70 TERMINAT He INeuT A eugouT CAN BE 
USED TO DEL tr mistyped I 
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ae Lie as eke Tin GF Te Bin os 


ICH THE UNIT UNDER TEST’S tas 


iL BE C 
Firs RE GUE RE a arte PARITY 
eis Sapa IPP Boe PoE 


op Be NG ADOR. 


fis s oast tite MOBLLE fs. See INTO 2 ae stokes SPACES. TYPE PR 
adie WY! eestn'Rt io 


4. (BYTES) OF 1ST ROM 
iia eee hea seit ise ae ea Ny HIER SPACE Rs 
OF 1000 BYTES. IF THIS SECTION OF ADORESSES IS°NOT 


USED BY THIS VERSION, ANSWER O TO THIS a 

furs REFERS re Ta ae in 428. OTSTINCT 

rat ee H (SYTES) wg 

Keke aE: Pee 5 ST oon 
BY By THIS VERSION, ANE a F) TIS 


é.4 EXECUTION TIMES 


Ghee fe ota uf t BYACSe nes BEEN Pass obo FFE, THAN 1 SEC. 


BILL HALT UPON COMPLETION, HOWEVER, IF RUNNING 
WILL CYCLE CONTENUOUSLY. 
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| O2MSAB.P11 «27-SEP-76 14: 
| B86 : 
| 287 3.0 ERROR INFORMATION 
| 5B N STI A DISCREPANCY N THE 
54 prec] TES fie coFruteD CR oe LPL Ect ra dae BRINSES 
293 
234 ANY DISCREPANCY IN THE LPC CAN ASSIST IN ISOLATING THE 
ee PROBLEM TO THE ROM IC. 
? APT THE ERROR Note CATED ED By DEPOSITING ERROR INFORMATION 
| 25 HR Fhe APT MAILBOX off oe HAL TING. 
| ix 4.0 PROGRESS REPORTS 
303 
| 365 T THE END OF EACH PASS THE eg INCREMENTS 70 THE 
§ tae: vita ee 
Ea e 12 ReCET ITH EVERY RESTART 
I THE ME TEST” IS PP THE CONSOLE 
are PELE eeA tee Each Pree “FORMALLY SH v Ene Base nets 
| 310 TO RUN TO VERIFY THE MODULE 
slg 5.0 TROUBLE SHOOTING 
od 2ene 2242s 
314 
315 THM FOR COMPUTING Cc Is T AS THAT 
316 TeED ON STRACK RAehE is H Nope air FH HO poeree THE 
CB, CRC IS CALCULATED ON A BYTE BY = TE BASIS. WHILE THE 
hey ae ALGORITHM CESSFUL IN TECTING MULTIPLE . I's 
313 pesuatine AID 15 LIMITED. 
321 THE LPC 1s CALCULATED 4 ASSEMBLING THE XOR OF EVERY 
322 HORO IN HE ROM HHI ONLY USEFUL I IN CATCHING AN 
353 OOD NUMBER. OF ERRORS IT posit , IT IS ve 
304 USEFUL IN ISOI! TING rie ROBLER TO A CHIP’ BY | Poca TING WHICH 
325 IT POSITIONS ARE In D SCREPANCY, THE HIP ec Bns ian ROM 
| 328 HIPS CAN BE ISOLA 
322 IF NO OTHER CLUES CAN BE OBTAINED, START THE PROGRAM 
323 AT 210 AND COMPARE THE PRINTOUT OF THE CODE WITH THE 
#20 LISTING FOR THE VERSION BEING TESTED. 
He 6.0 LISTING 
334 
335 
ck 
337 LENOR 
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338 
333 
2 
x 
344 
34s 
ch 
248 
34S 
es 
3$e 
2$3 
34 
35 
3S6 
337 
358 
383 
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ENABLE ABS 
"LIST ME 

gigs? MC, MD, CND 

“SBTTL BASIC DEFINITIONS 
LST Tam, — OF THE STACK POINTER ### 1100 ##+# 


étAc 
:;BASIC DEFINITION OF ERROR CALL 


“ESUTY ent. » ERROR 
-EQUIV IOT, SCOPE ;;BASIC DEFINITION OF SCOPE CALL 


LW aCe es DEFINITIONS 


HT= ;;CODE FOR HORIZONTAL TAB 
LF= FE ::CODE FOR LINE FEED 

CR= 1 3 CODE FOR EARRI TURN 
CRLF= 200 :CODE FOR CARRIAGE RETURN-LINE FEED 
S= 177776 ::PROCESSOR STATUS WORD 
EQuIV PS.PSW 

STKLMT= 177774 $s STACK Limit REG REGISTER 
PIRG= 177772 :3PR REQUEST REGISTER 
DSWR= 177570 : s HARDWARE UITCH REGISTER 
DOISP= 177570 33 DISPLAY REGISTER 
-*xGENERAL PURPOSE REGISTER DEFINITIONS 

RO= “0 :;GENERAL REGISTER 

Ri= %1 -:GENERAL REGISTER 

Re= %2 ::GENERAL REGISTER 

Ri= “3 ::GENERAL REGISTER 

RG= “4 ;:GENERAL REGISTER 

RS= % ::GENERAL REGISTER 

RE= %, ::GENERAL REGISTER 

R7= “7 ;;GENERAL REGISTER 

SP % ::STACK POINTER 

PC= x7 $3 TE 
;#PRIORITY LEVEL DEFINITIONS 

b ;;PRIORITY LEVE 

PRis 40 ;;PRIORITY LEVEL 1 

PRo= 100 ::PRIORITY LEVEL 2 

PR3= 40 ::PRIORITY LEVE 

PRG 0 >:PRIORITY LEVEL 

PRS= 40 ;;PRIORITY LEVEL 5 

PRE= ss: ssPRtORETY LEVEL 3 

PR7= 0 ? :PRIORITY LEVEL 7 

ix TEHITCH REGISTER” asin DEFINITIONS 

Swi4= 40000 

SWi3= 20000 

SWi2= 10000 

SWli=s 4000 

Swi0= 2000 

Swo9= 1000 

SwOos= 400 


SWO7= 200 








. _ ce ee 


MO1 
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000190 SWOb= 100 

395 909040 SwOS= 40 

3 Swo4¥= 20 

397 9010 SwO2= 10 

238 004 SwOe= 

398 oode SWOl= 2 

400 l Swoo= 1] 

451 ‘ “EQUIV SWO9,SW9 

Oe EQUIV Swos;Swe 

493 EQUIV SwO?, SW7 

= ay See 

: a 

; EauLY Ste 7 

458 EQUIV SWO1;SW1 

#10 EQUIV SwOd’ 

412 -#DATA BIT DEFINITIONS (BITOO TO BITIS) 

413 100000 81T1S= 100000 

aie 3550 Bitize 2 

416 jtatles BiTl2= 10000 

417 004000 BITli= 4000 

418 002000 BIT10= 2000 

Rp ge ig 

u3] eee BITO7= 200 

422 000100 BITOs= 100 

uZ3 900040 BITOS= 40 

424 po0020 BITO4= 20 

uss 600010 BITOZ= 10 

436 009004 BITOe= 4 

457 990002 BI TOI= 2 

428 600001 1T00= I 

438 “EQUIV B1709,8173 

430 “EQUIV 1708, 8118 

43] “EQUIV BITO7,BIT 

432 “EQUIV BITO’;BITE 

433 “EQUIV BITOS;BITS 

434 “EQUIV BITO4, e178 

435 “EQUIV BIT03, IT3 

436 "EQUIV BITO2;BIT2 

437 “EQUIV BITOI,S8ITi 

428 “EQUIV BITOO;BITO 

440 -*BASIC “CPU TRAP VECTOR ADDRESSES 

a seat ERRVELS 10 + eee BND AND PTE cae PERS RUCTIONS 

~~ Bppet PErY =14 Ha i ani 

“ 900014 TRIVEC= 14 : TRAC oi 

44 bpppea PETVE = py :TPRERKPOINT TRAP (1OT) #¥SCOPEss 


| Butaron te (EMT) ##ERRORSe 






—— 
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450 000060 TKVEC= 60 ::TTY KEYBOARD VECTOR 
431 909064 TPVEC= 64 :: TTY PRINTER VECTOR 
000240 PIRGVEC=e4O ::PROGRAM INTERRUP REQUEST JESTOR 
453 009608 
| 4 .SBTTL TRAP CATCHER 
: oo0000 =0 
45? ;#ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A “.42,HALT” 
45g :¥SEQUENCE TO CATCH HLLEGAL TRAPS BND INTERRUPT 
4 HALOGATION,Q” CONTAIN TO CATCH IMPROPERLY LOADED VECTORS 
461 000174 . DISPREG: .WORD O :;SOFTWARE DISPLAY REGISTER 
| ee 0001 SWREG: WORD 0 ::SOFTWARE SWITCH REGISTER 
| 464 goDz00 900624 me CLR TYPOUT 
| 465 900204 OOOSE IMP START 
466 900210 900001 o00612 MOV #1, TYPOUT 
47 000216 000654 IMP START 
| 463 PS=177776 
49 TRAPVEC=34 
493 1000 
| ara veftees SRS ay sal 177570 
| 475 901004 ROMSA1: 173000 
476 001006 DATLNI: Sie. 
477 001010 ROMSA2: 165000 
478 001012 DATLNE ele. 
4 501014 ORS: 
= wes O01 O16 ExcRC: 0 
—s« 4BTSs« 001020 EXLPC: O 
482 001022 ACTCRC: 0 
Wes Sotose PERENT: 6 
485 stele TYPOUT; 5 
ni .SBTTL ACT11 HOOKS 
489 emer ar Tani “eam ete tne paren armory 
/ 4 at HOOKS S REQUIRED BY ACT 
4 2 901032 SVP ;SAVE PC 
433 cooo4 oo2042 SENOAD ;;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
495 o000S2 000000 "WORD O 1122867 LOC.S2 TO ZERO 
- 001832 =$SVPC RESTORE PC 
ned .SBTTL APT PARAMETER BLOCK 
4395 : err h ahaa. 
BH SET LOCATIONS 24 AND 44 AS REQUIRED F 
] yetaseoegessseaneQntdaisosheaneensssHSGenGOU4S004000505600880088 
ae tear oT HISeY pouen Fa 6 Bot 
eo seed Gj RAIL 0 POINT TO START OF PROGRAM 
£04 oo00e4 o002d0 2 


00 START UP 
$s 000044 344 StBOINT. to PT INDIRECT ADDRESS PNTR. 














) .MBIN. oMRCYLI 25 tne 7 site 14: a PAGE | 
| OUNSAB.P LL F-SEP-7E 15:4 APT Poeane TER BLOCK 
ens coco Bei ae SAP THDR + sPOINT TO APT HEADER BLOCK 
F Ol 2. §X sRESET LOCATION COUNTER 
53s  PEEERGEEESSSGEEEEEDSEOSEDRESOSERGGEOSEEEEEEOEEGS000000000050549 
503 taetup APT PQRAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
gio : INTERFACE SPEC. 
Si2 Ol : 
ig sei835 000000 Siete: -WORD Q +: TWO HIGH BITS OF 18 BIT MAILBOX ADDR 
S18 O10 O010% AOR: .WORD $MAIL ;;ADORESS OF APT MAILBOX (BITS 0-15) 
£15 ze izst eee sere WORD § + ;RUN iin OF LONGEST TEST 
cié 501040 SPASTM: . WORD 7 RUN TIME IN SECS OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
ete eae eats SUNITM: pric 0 pQpog TONS RUN + CS) OF A PASS FOR ESCH ADDITIONAL UNIT 
18 OC1O44 is Wi SETENO-SHAIL2 :;LENGTH MAILBOX-ETABLE (WORDS) 


.SBTTL APT MAILBOX-ETABLE 


EN Sa aeeseen cn ke a aR 
VEN 


eal AMSGTY iii BOE TYPE CODE 
. araTAL HTESSHGE, Te NUMBER 
aTESIN :: TEST NUMBER 


WORD 
“WORD 
Srvet: “Hoe ADEVeT i: Sick BUNT 
Ht gp AUNT Hh os UNIT NUMBER 
GAD: .WORD AMSGAD ;; 
7 WORD ee 
SENV: BYTE AENV 73 EN 


i es Bee, et ae 
1 eee ATS ETisdeu Me 


BSESSESESEEESSS 


PSs da a UE Fe 





a tia siti tht ath abt 


te ant NY es 11/2020, 11/40=04, 11/4520 

40 ;# @=10 
5; :* BIT ‘et ae 

43 + BIT TING POTN eat a PROCESSOR 
543 + IT 
543 001076 cen 
Ent 
54? 901076 177 START: CLR SFATAL CLEAR ERROR NO. 
a RHE PR Bat irre HN Apes ew 
556 a _SBTTL INITIALIZE COMMON TAGS 
Fei 001114 012706 900S00 v Sap THE STACK POINTER 
E ss INITIALIZE A FEL VECT TORS 
E oie) 91 5 Spe MOV toate BAPVEC . TRAP VECTOR FOR TRAP CALLS 
&y 6011] 034 Hoy 2 bTRAPVE e;LEvel 
sts O0li4 p47 eAuate sehen 7FAILURE VECTOR 
EfE S0ll42 5155 nv ta, eats eee fever 
zee Tak a A °- “1 neTUe Tee tse ie OctER. ” 
BP? S01180 137¥e ~ mov SbERR inet s3BRVE ERROR V VECTOR 

- 2 1} . } 8 +3 
Ee: i122 Bi5075 et cate 610 MOY a) ii3Et FE BRRG oF VECTOR. SWICH REGISTER 


te 


¥- 
oe 
4 
He 


o- 
o- 


i 
t 


3 


o- 


R Fa 


RA A A a ¢ 
fururufuru 
roc 


we 


uy 


Cit tt 


i 


tT ad 


CVUTTOPTCIVEFVUNTOFTCIVOrOND 
BBE PES 


8 


BESESSSSRS BESS SBEERSSERSESSSBSESEER BESSSERRB BSSEEE BBS 


RAFSLERPERORS TRS ERBS TATOO RO GOR ERE? NRE Ee 
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Seals GRE ne 


De 


Crrmmm mcm 
Peer Se Sey eet ed er 


NOU £ wre 


8888s 
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coe 
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27-SEP-76 14: INITIALIZE THE COMMON TAGS 
012767 177870 177604 nov sOISP DISPLAY BNO f HaROUE Ptecict DISPLAY REGISTER 
REFS IE | nas BNE beg" igang avn IF fe Ro tiheOt eee oc a 
900403 os S$ tt BRANCH IF NO TIMEOUT 
127 oo121& 4S: y 8&5$, (SP) SET UP FOR TRAP RETURN 
love? OO0176 177554 658: MOV ;;POINT TO SOFTWARE SWR 
Oie7v6? OOO174 177559 MOV sotepete. 5 DISPLAY 
612637 900004 66S: MOV (SP)+,agatRRVEC ;;RESTORE ERROR VECTOR 
? R ::CLEAR PASS 
PgSSES Aacehs 177617 gyf SEP Te Ize. SENVE Hsia USER si2e Unoer APT 
31303 BEQ &7$ :: YES, USE NON-AP SH TCH 
12767 001070 177520 a MOV aSSWREG, SUR iM USE AP Sartch GISTER 
“3: 
1768S& O02042 C 42. s$ENDAD ; TO MODE? 
i4 eo. aga tis Me SO: BR 
1O4401 
ddso2& TITL 
177500 RESTRT: MOV — Ro GET 
cates ; ees o :$E 2ERS: GET INPUT 
16067 1 ue NOY XLBC(RD) FETCH EX LP 
biEces Sees bea may sot seat iEEon rs H Ey weec TED c 
16067 l MOV TDL uN 
16067 716 } MOV FE TEN 131 START Ns ADDR. 
16067 ng 177 MOV TELA CR) AROS URE. H 2ND LENGTH 
16067 17744 MOV RMSA2 (ROS ,ROMSA2 FETCH STARTING ACOR 
2 cnecr G0 ¢ 
176464 GETIN: TST 42 [UNDER ACT AUT ACCEPT? 
OO1O4S BNE CHECK IF 0; ; EF, USE-DEFAULT PARAMETERS 
? 900001 177500 MPBtsés] gENV 
1441 BEG CHECK A: BR 
005767 177434 TS?  . TYPOUT Aon TYPE OPTION 
o0iole ae GET2 -IF SO: BR 
104401 
005041 GETERC 
poses 177406 + oral (SP)+, EXCRC : STORE CT. CRC 
. u 
104401 TYPE sgt ps NPUT REQUEST 
COSOES GETLPC 
Gieckr 177376 Vv (SP)+, EXLPC ;STORE EXPECTED LPC 
104401 GET2: TYPE 
"i ; REQUEST IST ADDRESS SPACE 
4 ee :; INPUT SA 
12667 177350 Vv (SP)+, ROMSAL 
10840 Tie sREQUEST LENGTH OF 1ST ADOR. SPACE 
i } 3 : INPUT LENGTH 
12667 177340 y (SP)+, DATLNL 
YPE ;REGUEST START ADDR. FOR 2ND SPACE 


; INPUT SA 


os 


| 
| 


: CYLL 27( 1008) 27-SEP-76 14:46 PAGE 13 : 
soeSas.e1t e5-8ese Sia "Pa TEAC 128 THE COMMON TAGS 
Big oivey 016667 177330 ec ;REQUEST LENGTH OF 2ND SPACE 
. Tasue 
BEC Sree Ousie3 BAoet sINPUT LENGTH 
| BBB Sbinge Size6? 177320 swccc: OY SSbRyDATUNE “ve tyeeut Neeesran’ 
Pe apiece dts fe IMP YPROM G0_ TYPE OUT 
a4 pate pelos 17731 18: CLR ACTCRC : LER STORA FOR CTRL cre 
ee Boiig peeve, iocaee SOY DRTENI RO ‘SET AGENSTHL OF 157 ROM SPACE 
. ¢ ‘ 4 
ees St fe 77256 Soy SOMSAL. Ri :POINT TO Be OF IST ROM SPACE 
ot sere> bas JER PC CR “COMPUTE FIRST HALF OF CRC : 
Psd Spiess Bf MOV R : POINT Q START OF 1ST ROM ADDRS 
rss Shiese bieroe 1955a8 MOV —- DATLNI,RO 3S H OF 1ST ROM ADORS. 
| E33 Boreas “ FEOWVERT TO WORGS 
PC.LP ; 
REIS EE HE oc, Ry Bn ie 
| bx aes Bie709 177232 Be oH BR IF Te Pace, NQ 
es ieee 767 000270 at = oS R} POINT TO START OF ROM ADDRS 
| a Soyess Sie se MOV DATLNe, RO iS ET bENGTH OF eno OM ADDRS. 
| F Sieos $e Be Lec ; COMPUTE | REMRINCE R OF LPC 
baw pales 122767 anea 177254 ee 6), SENV Seat eR 
ae SACHS et, ST 42 UNDER ACT AUTO ACCEPT? 
cS BES Ss ee zs ‘Pere 
| ' AUTACT 
«BYE 091 167 900656 1S: ORE. ACTCRC SCOMPUTED = EXPECTED ? 
O01b26 767 177164 177166 CHI: CMP EXCRC, ; 
| Es Boiess 85143; Seo SIF $0: os ae 
0440 TYPE s TYPE CRC : 
is ate Ste hoy EXCRC, -(SP) PUT EXPECT CRC ON STACK 
Fee Boies Passes steamy PYPOC : :TYPE EXPECTED CRC 
| Fe Stes i o T :TYPE ACTUAL CRC MESSG 
| & L1éS2 ooet ACC ins “ STacyv 
| Fee BSiEeS BrEsSe yous nb RCTCRC, -(SP) sPUT ACTUAL CRC ON STA 
658 O0l6e0 104402 TYPOC * UNDER Math MODE? 
«BR Beles Gebre” i7eis onzowe AD. peers Sai 
S i se bane aaa BNE” x HE NOT: OR NO 2 ste 
2 001 MOVE TO MAILBOX ERR eee 
c64 O01 12767 OO0002 177140 1S: MOV #2, SFATAL ; FOR FATAL ERROR 
eee 0171 7 000001 177130 + #1, SMSGTYP sper PAL BOX OR 
ot ' . LPCSACTUAL LPC 
ae 001720 ? 177100 177072 (KI: cup BCTLPC, EXLPC cer EXPT LPC=AC 
fe : i431 Fire HYPE Lpc ERROR MESSS. 
71 O01 j EXL sPUT EXPECTED LPC ON STACK 
| & 177060 MOV EXLPC,-(SP) ; 
£55 i4e tothe TYPOC : TYPE EX gfee LPC 
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eo 
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a 
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1 76 
002110 004767 
mate 1 
128 103014 
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Bsise Oobeus 
pests 010405 
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002144 
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14:43 


1770Se 
176062 
000001 


000003 
000001 


i760e4 


002042 
177074 
177046 
177036 


002042 


176730 


176610 


ee 


1§: 


CKe: 


18: 


CL3: 


CLI: 


Cle: 


CLLAST: 


Tn 


E02 


ACTLPC, -( SP) 
F , #SENDAD 
1 

7 SENV 

83, SFATAL 
#1,$MSGTYP 


42, sSENDAD 
1§ 
Se, 
42,0 
{Nn 
PC, (RO) 
RESTRT 


TCRC, XORS 
ras 


; TYPE ACTUAL LPC MESSG. 
;PUT ACTUAL LPC ON STACK 
PE Ree rae 
R_APT? 

Hae t MB ILBOX ERROR ~ a 2 sees 
sSET Hal MAILBOX FOR FATAL ERR 
ac gut gece 
: TYPE END OF TEST 

ote 
;ACT HOOKS 


300 AGAIN 


:GET CHAR. 

ical ON EFFECTED BY SWITCHES 
FIX QUNT RS 

X_ POINTER 


ee. 


sROTATE 1 POS. RIGHT 
IF_NO CARRY: BR 
;SET BIT NINE 


;SAVE CHAR 


;IF_LAST CAR.;: BR 
GET NEXT CHAR. 


;COMPLEMENT ALL BUT BITS 38 § 





| 
| 
| 
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NG GCE Mene Raonees 
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f 
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002214 
O0eee2 


ee 


002334 


016767 
000207 


2 Foaess ES fs = 
KHSee BPs, 


aS 
Se 


Se 
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176574 
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176442 
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PAGE 15 
INITIALIZE THE COMMON TAGS 


XORS ,ACTCRC 
RTS pC 
PARITY: PARCNT 
V #10. R3 
CLPO: SIT #1. 4 
9 cL 
NC BARCNT 
CLPI: LO 
ROR RY 
DEC R3 
ae ar ae 
i¢ aioabe RY 
81, PARCNT 
cLPe 
i #400, R4 
CLP2: 5 PC 
XOR: RY, -(SP) 
i aia 
¢ RY, x 
1s (SP)+, XORS 
Moy ORS, R4 
RTS 
LPC: MOV ACTLEC, KORS 
LPC1: MOV (RL) +. RY 
i ai730e6, FL 
fa. 
Lpce bee Rm 
Be By 
MOV XORS, ACTLPC 
RTS PC 
TYPROM: TYPE 
TYPHOR 
ROY 4 TUNE RL 
mee OR 
fui 
TYPR1: MOV RShsae, 
MOV DATLNE, Rl 
ASR 1 
BEG ENDOT 
SR Pc, TYP 
ENDOT 
EOTST 
HALT 
TYP: ‘TYPE 


COWNTER 


ies ‘ onde e115 


EP, COUNTER 
;ROTATE TO NEXT BIT 
;CONTINUE FOR ALL BITS 


; SEE y 00D 8 OF ONE BITS 
ler PARI Y BIT 
EXIT 


;XOR SUBROUTINE: R4 WITH XOPS 


SP So skip Loe. B> BRANCHING 


; TYPE HEADER 


;POINT OT 1ST ROM SPACE 


Seek TS IN INRA 
BRANCH IF 45? ROM SPACE NOT USED 
SPAC 


: INT ¥0/3NO AGOR. SPACE 


ARPT ek 


2ND ADOR. SPACE NOT USED 
2ND ADOR. SPACE 


SPR BT © 








mm ee a re ne a eee ew rr eee 
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| 
| 


78& ocoe4s2 104401 TYP3: TYPE : 
787 3 54s CARLF . 
| 238 408 MOV RO,-(5P) PUT ROCRESS, ON STACK 
5. 1 TYPOC ;TYPE AOER. 
790 TYPE . 
«ES oe, 
| : 12046 TYP2: MOV (RO)+, (SP) PUT bara ON STACK 
793 oe47e l T :T 
a ze T :TYPE 2 Spaces 
: ra Sp2 
79 002476 005301 C fl. aie 
i 3¢ 
3] es Be s 2 
| 73S 002504 905000 BUTACT: ci RO 
EF Reeve REE OSS Rages 177777 See THES RO), 8-1 id HECKED DRL ke VERSIONS? 
802 902520 O01425 BEQ AUTERR 
803 002522 O26067 OOM626 176272 CMP TXCRC(RO) ,ACTCRC Tree ture CRC AGRE 
ge i BNE BUT sTE NOT: KEEP L USoKiNg 
ess : oo0042 od2042 a4 Se, #SENOA UNDER ACT TO ACCEPT? 
507 pseu O15067 po0soo4 osoo0o2 HOY TMSG(RO) ,AUT2 :SET UP VERSION MESSAGE 
| ie : : BS 17527" RTS: MOV TXCRCCROD Excac T EXPECTED CRC 
at sosee2 3 ? ett iSpese : Vv TAEBE SBR) BXcpe eet EXPECTED LPC 
gig 002570 600167 177124 IMP CK1 ;CHECK LPC 
814 O4401 AUTERR: T 
sis 14 AUTERM 
HES Ge em eg | ees. a a 
Be Bases BA6085 mer | Oo pM AL 
EC .S8TTL TTY INPUT ROUTINE 
Ez ew ee ein Go Site 
O02b16 177560 4S: WORD 177560 ;;TTY KBD STATUS 
624 002620 177562 STKE: .WORD 177562 ::TTY KBD BUFFER 
g25 LSB 
ee DsAeL LSB 
£25 
Es? + LSSSESSESSSSSREESESSSEEE SESE SSERSRELASESHRSRALASSEAEARRERESS SAE 
ee iATHIS: ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
33 ROCHE $3 INPUT 8 gin » CHARACTER FROM THE TTY 
:# URN HERE ACTER J THE sTack 
es # ITH ITY 8 ait STRIPPED OFF 
£37 ; 7 
£38 O02622 Olle SROCHR: MOV (SP), -(SP) + PUSH ote PC 
e2? soebes 0 oo004 cooode MOV 4iSP),2(5P) eae The 
0 002632 1 l 18: TSTB 439s AS TKS 
841 002636 100375 BPL 1$ !:A CHARACTER 


AIEEE eee 


cD 
it 


i 


v 


wi ea al at 


a 


a 


PRIOR Soe COREE dal Total Sobel 


to 
wo 
N 


eee ee 


mm ee 


MACYLI 27 (2008) 27-SEP-76 1424 PAGE 1? 
B.P11 27-SEP-76 14:43 TY INPUT ROUTINE 
poze 17766 177754 oOo0004 MOVB  a$TKB,4(SP) : sRERO THE TTY 
<= on2758 177600 900004 BIC #1C<1?7> .4(SP) $:GET RID OF JUNK IF ANY 
002654 oo00004% 000023 cMP 4(SP), #23 +: Is aut co NTROL-§? 
4 Pe2938 177726 2$: Foe ibs >: WAIT Hof A CHARACTER 
ee eae, ote | SerKB.-(SP) +A OOP a akreR? “MERE 
BREESE Aicore 1O785 Bee sere, ‘35 } ti Gee IT acre ASCII 
002702 O22627 000021 che (SP), $21 $315 IT A CONTROL = 9” 
001366 NE 3;1F NOT DISC I 
062710 900750 Se 1$ ::YES, RESUME 
002712 O26627 O00004 000140 38: CMP bese), a140 2:15 tT UPPER CASE? 
oce7e9 002407 BLT 4§ ;;BRANCH IF YES 
ee Oeste7 000004 000175 CMP 4(SP), #175 ::1S IT A SPECIAL CHAR? 
002730 003003 BGT 4 Th eg H IF YES 
002732 O42766 o0004O 700004 BIC #40,4(SP) MAKE IT UPPER CASE 
092740 ondode 4S: RTI :G0 BACK T R 
Sesgsasesssssssssnesssansessashisistetaatiesatessaassssseesess 
sTHIS: ROUTINE WILL INPUT A STRING FROM THE T 
te ROLIN ;;INPUT A STRING FROM THE TTY 
:% RETURN HERE t:ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
3% :: TERMINATOR WILL BE A BYTE OF ALL O°S 
poe7e SROLIN: MOV R3,-(SP) >; SAVE R3 
, CLR -($P) ¢ 3 CLEAR HE RUBOUT KEY 
00274 O012702- 002176 13: MOV sSTTYIN,R3 DRESS 
752 * 003206 zs: CMP aSTTYINSS. ,R3 care FULL? 
: Siiee BLOS su 33 
1044 ROCHR GO READ ONE CHARACTER FROM THE TTY 
092762 112613 MOVB (SP) 4, (R32) CET CHAR 
002784 122713 000177 10$: CMPB #177,(R3) iis ITA RuBeUT 
001022 BNE 3388 IF 
71 ST (SP) :1S HIS THE FIRST RUBOUT? 
1 BNE 6 ::BR IF NO 
002776 112767 000134 000170 MOVE 8°\,9S sf om A BACK SLASH 
003004 104401 003174 TYPE 3$ 
po2079 O1e716 1 MOV b-1, (SP) :;SET THE T KEY 
i4 6S: DEC R3 : BACKUP BY 
003016 003176 CMP R2,#STTYIN - ;;STACK EMPTY? 
003022 193434 BLO 4 :BR IF YES 
002024 111367 000144 MOVB (R3),9S :}SET TO TYPEOUT THE DELETED CHAR. 
003030 104401 002174 TYPE 338 :G0 TYPE seal 
ake BReS ie cs: ee, 8 fia “eye opts 
im: eee 134 900124 oy My 93 BRS - NBACK SLASH 
ANH ) wy 
Bnet 10846 6031 . WORE Sag o 
16 CLR {SP) igs THE RUBOUT KEY 
713 oo00es 7$: CMPB sw 25, (RB) H HARACTER A CTRL U? 
I re 5 :16R IF NO 
104401 003212 CNTLU $3 A CONTROL “U" 
000726 SP ae START OVER 
o0 kee? 13 oo002e2 Q$: CMPB a2, (RS) 3315 CHARACTER A “tR™? 
O0 1011 BNE 3 


003100 105013 CLRB (R3) + CLEAR THE CHARACTER 





ra 


fe 


-. 


eS isota edt stan 


GECEECEOGREEREGEEEE 


60.0000... 
00-2 b+ + Oo +e ee 
WO NOU £ Lure 


is 


a iy 
BR 


CREE 


™“ 


lbs Ete SBP EPL." 


ey 
ape 
: 
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102 104401 003207 TYPE  ,SCRLF :;TYPE A "CR" 8” LF 
10 01 003176 TYPE STTYIN :: TYPE THE INPUT E RING 
lle 71 to 2 330 PICKUP ANOTHER CHACTER 
ts 01 003206 4S: TYPE Sues ea‘? 
1 71 2m { CLEAR THE BUFFER AND LOOP 
1ge 111387 990046 3s: Nove (RD), 9 ::ECHO THE CHARACTER 
188 193304 Bpaaie CMP bie, cra) 3 ; CHECK FOR RETURN 
136 001305 BNE 2$ :;LOOP_IF NOT RETURN _ 
149 105063 177777 CLAB ss = 1( RB) !:CLEAR RETURN (THE 15) 
ied ee aae ee tere tebe OE RO ANE PEED FROM THE STACK 
138 j ae nov (26 3,R3 ii EeEe Nop ES 
154 O11e46 MOV és ),-(SP) ; ADJUST THE STACK AND PUT ADDRESS OF THE 
1S oi pace oo002 MOV }.20SP)° sg FIRST ASCII CHARACTER ON IT 
164 O1 0031 apoees MOV a TYIN, 4(SP) 
14 a: ag RT RF ASCII CHAR. TO TYPE 
UU $ ~ 33 
175 500 -BYT : a Rock 
176 000010 $TTYIN: .BLKB 8. “RESERVE 8 BYTES FOR TTY INPUT 
o03208 Sues: ASCH 1 QUESTION MARK 
1S CRLF: .Asc 1S» : CARRIAGE RETURN 
Bae Bie iu. AEE SAD ap ib "amen. ae 
Bpssi5 l Beeeas noobie SeNTES Ports 7 tirap tip CONTROL “~~ 
003224 o050i5 053523 O20122 SMSwR: .ASCIZ (12) (1B /SHR = 
353 - 040 047040 OS2S0S SMNEW: .ASCIZ / NEW = / 
$ . ~ 
3242 036440 Soaps 


-SBTTL READ AN OCTAL NUMBER FROM THE TTY 


= SSLSSERSSSSAASASARASRAHA RE SESE ARESALASASEHRLAESLALFAAAAAASLELAZFEE 
ee eats WiLL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 


RS WILL BE CHECKED TO INSURED THEY 


TES EN Cet Grane! ieee 


aT RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 
is a8 HERE A one eC arts. BRE ON T THE STACK 
3 # Hy q ise IN SHISeT 


i 
8 
é 


;;PROVIDE et FOR THE 


poo004 opg00e * Hoy : INPUT NUMBE 


oo 
ee 
ri 
& 

<<< 

Do 

o-~ 

-w 

‘oOo 
ne 
wee 

w 
UY 

—) 

ww 


1S: ROLIN 
MOV.  (SP)+,RO a CET ADDRESS OF IST CHARACTER 
RO,SS$ IT 


a SAND 
: : CLEAR DATA WORD 


(fove,~<sP) #3P eee THIS 1; hla 


8'0, (SP) hake SURE THIS CHARACTER 


- 
LS 
za 


8. 

a 

- 
& 





oo” 


SERRE II IST SIR RRR RES Es 


tf 


ww 


RGR Riigeesassess 


ee ee ee ee et eee 














CY11 27(1006) 27-SEP-76 14:46 PAGE 19 
Pll 25-525- 76 14:43 READ AN OCTAL NUMBER FROM THE TTY 


z 





003310 003026 BGT “3 ::IS AN OCTAL DIGIT 
1 38 000067 gree a (SP) 
ASL Rl 23 #2 
1 ROL Re 
I BSL Fl 7344 
SpesoT et RI +; #8 
raat 177770 Nt oF 7, (SP) RIP THE AS UNK 
beset BS 1658, F Rp IN THIS bfh27 
== 73 726 33: TST (SP)+ en TERMINATOR FROM STACK 
ie Hus RUE me 
m6 Ol nov p+ Re 3 ;POP STACK IN INTO R2 
oases piee mu P)+,R are Be ENT RO. 
Bossee Tesre 8: hg (Ro sere eee oe STACK 
003372 10440 TYPE THRU THE BAD CHAR. 
74 eoaags Ss: .WORD 0 ae yr 
Ses ie come ps egy 
503404 900000 SHIOCT: .WORD 0 ::HIGH ORDER BITS GO HERE 


-SBTTL TYPE ROUTINE 
ieGutine To Tyee Acciz tessece. rescnar Tusy TemnINaTe ITH AO 


beouTite To Tyee Tibthae Pane 
ae Sriite gavinine The Tencen Oc FItLeR CaeeacTERs AEDCEAESS 


SSCALL: 
#1) USING A TRAP RUCTION 
TYPE Me SAO ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


HOR 
TYPE 
y MESADR 
;# 
po3406 105767 oo00265 STYPE: STB  STPFLG $31$ THERE A TERMINAL? 
le 1 BPL 1$ :BR IF YES 
14 HALT rFHALT HERE IF NO TERMINAL 
48 cg Rd, =<sP ii EAVE , 
51 om Soy 2 + ey nD 2 STRING 
BSE 100) TEBE irene a Siew ow WIRE AL 
x E> — 175423 one Ae SENVM ae gO areca pO OP eatieree 
eis a Q 2 . iApeeb eee Fon CONSOLE 
1 MOV RO,61$ ‘SETUP MESSAGE ROORESS OR APT 


goare? Gites 618: "HBR O° i 1 SOO, SSA, 10 oP 









sete o0004o = 175401 


OOOO OONIO00 
0D Pu £Wrue-O D- 


O- 0 +0 0 =» <8 oo 


eo 
20-< §~< 9 §-0 0 9+ 6s 5 § 9-0 9-0 9-< 6 - 


Td 


ee ae ee ee ee - - + 


: 
oy 


=] 


an 


8 


oe 
Se 





re 


=} 


0 8 OO hs OO + + bs + 0 0h + Ob 8 eb b+ be Oe + 8 hh he eee 


pid hot AA UME Eee SEF ESATA 





Bi 


3 


oe lie 14:46 PAGE 20 
6 1 743 TYPE ROUTINE 


BITB 


sate TRE 





" # 


s;AET CONSOLE SUPFRESSED 
eee THYPE Gut 
TYPED ONTO STACK 


Ho fEetind OF are THe stack 


Hag RETURN PC 


;;BRANCH IF <HT> 
;;BRANCH IF NOT <CRLF> 
tte jo , ee 
ape obec gor 


ieeT 
3390 riPe. THIS C 


i A "ter te FILLER CHARS. ? 
& OF F ei CHARS. NEEDED 


i dingy TO BE T 
tet Pte MED THE NULL F OF STACK 
NOT 


oT COUNT AS A COUNT 


tS TYPE 
$3 srier AT 
+ Me T 
POP SPACE OFF STACK 


T 
IT UNTIL PRINTER TS READY 


guce LARP 


ones CHARACTER COUNT 
SAB ane ene A LINE FEED? 


Hera SRRROCTER 
ity PainteR BUFFER REG: AOORE a 


Pear TERE 


i gee i. sag peer tee YES) 


ICATIONS Sewell 





; 


> 
. 


‘ 
- mem en ee ee 
* es 
. 


a 


—— a ee = ee ae - 
: > : 
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é 


4 


re Schiahahal}-ty tale el-4-5-4ah-talehalah hehehehehe} tb 4544-4 eh 4-4-5 Salah 3-5-4 5-llllleed 
ay! FATAL ERROR 


999001 000236 bATv: nove #1, SFFLG 2:70 RE 
1 600226 $ATY3: MO SHFLG ::70 TYPE A 


ity 
- o- 
NWI 
: 
tf 
oO 


Rorvo |e Deu 
: oe eee ath Booms 
Buss ms gos ne 


&,-(SP) at cher dpe Race oo STACK 


re sats: Rove 81, SFLG ate ONLY REPORT FATAL ERROR 
os re f p00206 a a ra fey ae MESSAGE? 
z8 l 27k po0000: 175122 28 tals pena ing UNDER APT? 
. 44 > ooo1o0 175113 eve TSPOOL, SENVM ; 35H OL MESSAGES” 

1 00004 MOV (SP) RO ::GET MESSAGE ADDR. 
oes Poebes ope 18: sect eee $3$EE f, ‘BENE W/ vats RAT SSION? 
es 
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2833 


175020 


be 38: 
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wy 
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eee i eee te 
103 , in 174750 118 TST SMSGTYPE 33F A ire MESSAGE? 
Ibs : 000004 174742 a O4 sp), SFATAL biter a ecru sg 
ly 2: nn ee 
103 i 2 pons - c sre ii an LOR FLAG 

it Re oi, | aS 
He BR ag ee FRI ns 

lis Hides BYTE 8 LOG FLAG 

it6 900 SFFLG: ae 0 ;FATAL FLAG 

He anes 

120 1 O0Ls} 

121 000040 APTCSUP=040 
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“76 14%: 
SB inany TO" TO OCTAL (ASCII) AND TYPE 


hs he ne hs se Bs be he Oe 0 Bo 0 oe Oe bo hs ho es oe Bo be Bo bs 0 2 2 0 0 hn Bo hs B= 2 ho Bs Bs ho Be Bs hs hw Be he Be 
A RT I I a ee ae oe ee oe 
JRRZINAISH VERE GS BHT RTO SHIEH ESO SSO GRAZE GBBT RLS é 


.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


; [qoreteeveeseessecsstenerernrsnreseregesuasaennecsseseeseners 
sATHIS, S ROUTINE IS USED TO TO ene 16-BIT BINARY NUMBER TO A &-DIGIT 
taal HERE 10'S TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


:#C 
te MOV NUM, -(SP) : NUMBER TO BE TYPED 
te TYPOS CALL FOR TYPEOUT 
te .BYTE ON :N=l TO 6 FOR NUMBER OF DIGITS TO TYPE 
;# -BYT M ;;M=1 OR 
:# $i AST Vee LEADING ZEROS 
3 =SUPPRESS LEADING ZEROS 
# *STYPON- ENTER HERE TO TYPE OUT WITH ae SAME PARAMETERS AS THE LAST 
Ne OR 
+ MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
i TYPON *:CALL FOR TYPEOUT 
| #STYPOC-—-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
i. MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
:# TYPOC !:CALL FOR TYPEOUT 
STYPOS: MOV. @(SP),-(SP) iPHC KUP THE MODE 
MOV. 3p) SOF TLL ZERO FILL SWITCH 
MOVB = (SP) +, SOMODE+1 LAUER OF DIGITS TO TYPE 
B00 #2, (S) JUST RETURN ADDRESS 
STYPOC: MOVB 81,SOFILL $1 THE ZERO FILL SWITCH 
MO » $ONODE +1 ::SET FOR SIX(6) DIGITS 
STYPON: MO " SOCN +: SET THE TERATION COUNT 
MOV R3,-(SP) 33 
MOV RY, -(SP) + OVE RY 
Move SOMODES1 TRE NUMBER TYPE 
HOV $0 +1,R4 :GET T OF DIGITS TO 
#6,R4 TRACT IT FOR MAX. ALLOWED 
iy SOF TLL Ra HSave iy FOR L SWITCH 
sf yi RS Ho THE INP F NONBER 
CLR R AR THE OUTPUT WORD 
1S: ROL HH ATE 
3 He) 1G DO 
2g ROL RS "= =" SERORM THIS DIGIT 
ROL RS ws 
ROL 
3$ ROL Ba’ GET L DIGIT 
, reg SOMODE iT “figs of ao 


7$ ;BR 
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Sone: POWER DOWN AND UP ROUTINES 


;;DON’T_ SUPPRESS ANYMORE 0°S 


v0, R3 5s MAK THI Tr T ASCI 
R3 Asc ¥fiot ALREADY 

é bg + Cay 

$ ::G0 THIS If GIT 
$OCNT 3 

; aC TO DO 

4 ii NSURE Last OIGIt ISN" T A BLANK 
(P+, 84 ee RY 
5 os i SP) ioeF one E Fock FOR RETURNING 


: Pe EEL Blin 


;;OCTAL DIGIT COUN 
3 ZERO FILL SWITCH 
;NUMBER OF DIGITS TO TYPE 


5 SERARERAERARES SEERA LA ALAE AREA ALARA ALA RE RAE LE RESALE LAA LE ALE L AES 
: R DOWN ROU 


mu 
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0 + 0+ 9 = b-< B+ 9 + 0+ b+ 6 bb = B+ FF + = + 0 + = b+ Ob bo BP 0-2 = + = 2 + 2 9-2 2 hs 2 = = & 2 > b&b DP 
> +0 +> +06 <-> -0--b- 8 
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fturu 
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SSILLUP, J#PWRVEC ; ;SET oon FAST UP 


#340 QUPURVEC#E s BRIO: 

-t +3 Pusy ko ON STACK 
rae >:PUSH Ri ON STACK 
RS’ = (ep) teeter RS ON STACK 
RY; - ~(SB) + eueH R4Y ON STACK 

PU STACK 


R ) 33 ES oN 

53la=( -(SP) 33BU ON STACK 
$SA : SAVE 

BSPURUP, DePWRVEC’ SET UP VECTOR 


2 ;;HANG UP 
Tr ee eee 
aPURVE T FOR FAST DOWN. 
seavhe ep 
fee sett ™ 
fer ie T th INC 
(SP)+, POP STACK i 
” 33 NT 
eke jibe Stick IM 
(3B )+,R3 :;POP TACK INTO Rg 
(SP)+’ s SBOP 
(3P)+, Ri Fo 
SPUR DePWR Cie Tach DOWN VECTOR 
#340, NbRVECSS ; SPAT 
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POWER DOWN AND UP ROUTINES 
SPURMG: ahr’ SPOWER 

SILLUP: met | 

SSAVRE: he 

SPOWER: .ASCIZ <15><12)“POWER™ 


"+ SEVEN 
~ SETTI. . thee DECODER 


eee CTTG HINT DICKIE TE TOLER AYTE OF THE “TRAP” INGTRUCTI 


:btHIs send US Itt IN othe PIS 


a ne DESIRED R shat THEN USING THE AOORESS OBTAINED IT WILL 


Hoe Te TROP p AQORESS 
ti eeT Brant BYTE OF TRAP 
i 3POS] TION FOR INDEXING 


ee a TO T 
; $s 2NES ROUTINES 


#60 i THR 
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KUP THE LOWER 
HROUGH THE TR 






;;POWER FAIL MESSAGE POINTER 
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>: THIS IS USE TO HANDLE THE “GETPRI” MACRO 


STRAP2: MOV 
> MOV 
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“SBTTL TRAP TABLE 


“;#THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
:#BY THE il I 


TXCRC: = 


NSTRUCTION. 


; ;; CALL=ROCHR 
33 CALL =ROLIN 
;;CALL=RDOCT 





33M0 


TRAP +E (1 


RSION 


YA VE 
Ve VERSION 


THE “TRAP” J INSTRUCTION 
STARTING ROORESS 


YTE OF 
TABLE FOR T 


THE PC DOWN 
7;MOVE THE PSW DOWN 
;;RESTORE THE PSW 


TTY reper ROUTING 
T OCTAL ! 

OCTAL 
TYPE OCTAL NUMBER (AS BERL 


TTY TYPEIN cHaRACTER Rone 
Serke USER Fas TTY 


YA(OR YC) VERSION 
YF VERSION 
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iS mae oi mee 950131 SIZE1: .ASCIZ <1S><12>/TYPE LENGTH (BYTES) OF 1ST ROM ADOR. SPACE: 
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| jy peat 33 9 teséue 

| 1405 26 bevse 647446 








141i 005465 red OS2e012 OSC131 SIZE2: .ASCIZ <15><1le>/TYPE LENGTH (BYTES) OF @ND ROM AODR. SPACE: / 


1416 O005Se2 O47See 020115 04210) 
1437 005530 051104 O200S6 050123 
ais Sees 041501 035105 
i4 45 000012 CARLF: .ASCIZ <35><le 
| 12421 005550 SPe: ASCIZ ¢ 7 
TYPHOR IZ «15><12> “ADDRESS DATA/ 


COLON: .ASCI 
CT 
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cS bee Bes le ge = 


a ae 
2 <15)<12>/UNKNOWN MODULE / 





is O42614 00040 
1432 O0SE36 1S O3451S 030063 MSG1: .ASCIZ <15)<12>/M9301 - YA/ 
1333 Os644 a o20055 o40531 
itze Bbeees 15 O46412 O31471 MSG2: .ASCIZ <15><12>/M9301 - YB/ 
1436 005660 030460 O26440 054440 
fase QoSE70 DOSOIe 3 MSG3: .ASCIZ <15><12>/9301 - YC/ 

t $ e 4 = 
1435 7% “a Becsee Saree; 
4a 4 MSG4: A 5><12>/N9400 - YA, YC/ 
isi 18 Dubie 32073 SG SCIZ <15>«12 
a 026101 041531 
1444 005726 616 oa 031471 MSGS: .ASCIZ <15><12>/M9301 - YF/ 
1445 O05 626440 o54440 
j 74 106 
144 90000! END 
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: : ae FEF YMBOL TABLE nue) 
GOPG.PLL EI-GEEATS 18:89 . CRLF = 900800 BS BB8003 TyeEOR ipeees 
sense = BufacT. SeSeM Sati eB Trea = itios 
| aa aitEse Sb3e34 DpISP.= 177875 27961  BOeNoe TyPouT Aeiose 
ape = AUT RR d0S506 piaeLe 9010Ge SIzZEe ooses Abe! is aabse 
| ae. pure Resaee pein = tea: eThick = 001100 veo eater 
atk ne eo ie Be 
AD0WO = s 1 z Te XOR 
l= Ei tho = rae XCRE. OOLDIe ¢ BODIE woes SO1BI9 
Fre Bitue = Bootes Bee’ Borash ee = 000001 frye ee 
Es Him : Baas Bie Bs oat uae 
| ROOW14= BITOS = 900040 serene Sol se anne . i0 Hae boa7ie 
| Popeaes & Bi708 = 900108 Tipe 08 su04 = 000020 SNTLg Soaei? 
| Oe eS TO? = 000e Srey eas 5WOS = 00004 NILG Sabie 
Se: hi A oo ce 
: Bit, © Ries IQTVECs 9900¢ = 0004 veT OO105 
Ee Ruioee = Bs a i oe 
| Owe Biti§ = rp¢2 02350 aii? = doao65 ee ee 
| REM = Eitis = 109300 MSG] 005636 aig = Bice 1E¥0 sie 
Sn: Le: Oe ai te ve Gi 
cate crs = Sooues cig’ = Oooo erie Sbsere 
| BITe = 000100 BG: ee Select Gosaea 
| BIT? = dodeod aes poe SHOT 00 
snes Es > Biase ae = ule atP Saag 
Ae an 
a, 00147 a8 yer 
Be Bl TeITve= pgo014 CE 
cui BOL Bee TENE ONPHO Het 
| Beer Be oe Es 
spa” Sosa foie hes 
cl VEC = . $NULL 003674 
1 TRAPVE= 000034 NT 
cee Bee aie or. ie 
O81 9 at $PASS 90105 
H Big rae es hy Bis 
chim Se Re Beate rion BE 
fe 6 
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«aE BREE ithe x psec SOFILL 952343 
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